<%
Set d=Server.CreateObject("Scripting.Dictionary")
Set t=Server.CreateObject("Scripting.Dictionary")
d.Add "wtr_name","委托人"
t.Add "wtr_name",false
d.Add "bwtr_name","被委托人"
t.Add "bwtr_name",false
d.Add "category_name","类型"
t.Add "category_name",false
d.Add "cd_no","报关单号"
t.Add "cd_no",false
d.Add "cd_date","申报日期"
t.Add "cd_date",false
d.Add "cd_company","企业名称"
t.Add "cd_company",false
d.Add "cd_voyage","船名/航次"
t.Add "cd_voyage",false
d.Add "cd_lading","提单号"
t.Add "cd_lading",false
d.Add "cd_verify","核销单号"
t.Add "cd_verify",false
d.Add "cd_passno","通关单号"
t.Add "cd_passno",false
d.Add "cd_orderno","订单号"
t.Add "cd_orderno",false
d.Add "cd_boxno","箱号"
t.Add "cd_boxno",false
d.Add "cd_receive","报关费(应收)"
t.Add "cd_receive",true
d.Add "cd_pay","报关费(应付)"
t.Add "cd_pay",true
d.Add "cy_receive","查验(应收)"
t.Add "cy_receive",true
d.Add "cy_pay","查验(应付)"
t.Add "cy_pay",true
d.Add "sj_receive","商检(应收)"
t.Add "sj_receive",true
d.Add "sj_pay","商检(应付)"
t.Add "sj_pay",true
d.Add "jk_receive","进口(应收)"
t.Add "jk_receive",true
d.Add "jk_pay","进口(应付)"
t.Add "jk_pay",true
d.Add "qt_receive","其他(应收)"
t.Add "qt_receive",true
d.Add "qt_pay","其他(应付)"
t.Add "qt_pay",true
d.Add "total_receive","合计(应收)"
t.Add "total_receive",true
d.Add "total_pay","合计(应付)"
t.Add "total_pay",true
d.Add "cd_actreceive","实际(已收)"
t.Add "cd_actreceive",true
d.Add "cd_actpay","实际(已付)"
t.Add "cd_actpay",true
d.Add "cd_memo","备注"
t.Add "cd_memo",false
' Set cate=Server.CreateObject("Scripting.Dictionary")
' sql_cate="select * from feecategory order by id"
' set rs_cate = Server.CreateObject("ADODB.Recordset")
' rs_cate.open sql_cate,conn,1,1
' do while not rs_cate.eof
	' cate_short=rs_cate("short")
	' feecategory=rs_cate("feecategory")
	' cate.Add cate_short,feecategory
	' rs_cate.movenext
' loop
' rs_cate.close
' set rs_cate=nothing

%>
